Шаг 76 - Метод Skip.

Пропускает указанное число символов при чтении из файла TextStream.

object.Skip(characters)

Параметры
object объект типа TextStream
characters Обязательный. Количество символов пропускаемых при чтении из файла.

Пример
Следующий код иллюстрирует использование Skip метода:

Function SkipTextFile
  Const ForReading = 1, ForWriting = 2
  Dim fso, f
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
  f.Write "Hello world!"
  Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
  f.Skip(6)
  SkipTextFile =  f.ReadLine
End Function
Hosted by uCoz